object dlgShowFilenames: TdlgShowFilenames Left = 694 Top = 182 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Filename Display' ClientHeight = 462 ClientWidth = 451 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter ShowHint = True OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 433 Height = 330 Shape = bsFrame end object Label10: TLabel Left = 41 Top = 183 Width = 40 Height = 13 Caption = 'Position:' end object Label1: TLabel Left = 20 Top = 21 Width = 231 Height = 13 Caption = 'What text do you want displayed on each frame?' end object Label2: TLabel Left = 40 Top = 72 Width = 376 Height = 13 Caption = 'Note: Text is not added to title frames, videos or images which ' + 'already have text' end object lblCustomCaption: TLabel Left = 40 Top = 88 Width = 390 Height = 13 Caption = 'You can specify the caption for each image on the bottom right o' + 'f the main window' Visible = False end object Label3: TLabel Left = 20 Top = 109 Width = 48 Height = 13 Caption = 'Options:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 20 Top = 216 Width = 33 Height = 13 Caption = 'Style:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 40 Top = 242 Width = 24 Height = 13 Caption = 'Font:' end object Label6: TLabel Left = 256 Top = 243 Width = 27 Height = 13 Caption = 'Color:' end object Label8: TLabel Left = 40 Top = 275 Width = 23 Height = 13 Caption = 'Size:' end object Label11: TLabel Left = 40 Top = 306 Width = 42 Height = 13 Caption = 'Shadow:' end object lblShadowColor: TLabel Left = 256 Top = 306 Width = 27 Height = 13 Caption = 'Color:' Enabled = False end object Label9: TLabel Left = 214 Top = 275 Width = 26 Height = 13 Caption = 'Style:' end object cmbCaptionPosition: TComboBox Left = 88 Top = 179 Width = 141 Height = 21 Hint = 'The position where the text should be placed' Style = csDropDownList ItemHeight = 13 TabOrder = 3 OnChange = UpdatePreview Items.Strings = ( 'Top Left' 'Top Center' 'Top Right' 'Bottom Left' 'Bottom Center' 'Bottom Right') end object btnOK: TsitBitBtn Left = 227 Top = 419 Width = 103 Height = 28 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 13 OnClick = btnOKClick Images = frmMain.ImageList1 ImageIndex = 0 end object btnCancel: TsitBitBtn Left = 337 Top = 419 Width = 103 Height = 28 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 14 OnClick = btnCancelClick Images = frmMain.ImageList1 ImageIndex = 1 end object chkCaptionHideExt: TCheckBox Left = 41 Top = 130 Width = 209 Height = 17 Hint = 'If checked the file will be displayed without its extension, e.g' + '. "myimage" rather than "myimage.jpg"' Caption = 'Hide Filename extension (e.g. ".jpg")' Enabled = False TabOrder = 1 OnClick = UpdatePreview end object chkShowFileDateLong: TCheckBox Left = 41 Top = 154 Width = 193 Height = 17 Hint = 'Specifies whether the long date (e.g. September 13, 2004) or the' + ' short date (09/13/04)' Caption = 'Display Long Date Format' Enabled = False TabOrder = 2 OnClick = UpdatePreview end object GroupBox2: TGroupBox Left = 8 Top = 346 Width = 433 Height = 65 Caption = 'Sample' TabOrder = 12 object pnlPreview: TPanel Left = 8 Top = 16 Width = 417 Height = 41 BevelOuter = bvNone TabOrder = 0 end end object cmbFrameCaption: TComboBox Left = 41 Top = 44 Width = 233 Height = 21 Hint = 'The text that is displayed on each image frame within your slide' + 'show (except those that already have text added)' Style = csDropDownList ItemHeight = 13 TabOrder = 0 OnChange = UpdatePreview Items.Strings = ( 'None' 'Filename' 'File Date' 'Filename, File Date' 'Custom Text for each Image') end object cmbCaptionFontName: TExFontComboBox Left = 88 Top = 238 Width = 149 Height = 22 Hint = 'The font of the text' DropDownCount = 16 TabOrder = 4 OnChange = UpdatePreview TTonly = False UseItemFont = True end object cmbCaptionFontColor: TColorComboBox Left = 296 Top = 238 Width = 129 Height = 22 Hint = 'The color of the text' HTMLcolor = '#000000' ColorValue = clBlack TabOrder = 5 OnChange = UpdatePreview end object spnCaptionFontSize: TSpinEdit Left = 88 Top = 270 Width = 65 Height = 22 Hint = 'The size of the text' MaxValue = 0 MinValue = 0 TabOrder = 6 Value = 0 OnChange = UpdatePreview end object cmbCaptionShadowStyle: TComboBox Left = 88 Top = 302 Width = 149 Height = 21 Hint = 'Whether a shadow or border should be added to the text' Style = csDropDownList ItemHeight = 13 TabOrder = 10 OnChange = cmbCaptionShadowStyleChange Items.Strings = ( 'None' 'Shadow' 'Border') end object cmbCaptionShadowColor: TColorComboBox Left = 296 Top = 301 Width = 129 Height = 22 Hint = 'The color of the shadow or border' HTMLcolor = '#000000' ColorValue = clBlack Enabled = False TabOrder = 11 OnChange = UpdatePreview end object chkCaptionFontBold: TCheckBox Left = 250 Top = 274 Width = 49 Height = 17 Hint = 'Set text as bold' Caption = 'Bold' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 7 OnClick = UpdatePreview end object chkCaptionFontUnderline: TCheckBox Left = 360 Top = 274 Width = 73 Height = 17 Hint = 'Set text as underlined' Caption = 'Underline' TabOrder = 9 end object chkCaptionFontItalics: TCheckBox Left = 306 Top = 274 Width = 49 Height = 17 Hint = 'Set text as italicized' Caption = 'Italic' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 8 OnClick = UpdatePreview end end